home *** CD-ROM | disk | FTP | other *** search
/ Aminet 34 / Aminet 34 (2000)(Schatztruhe)[!][Dec 1999].iso / Aminet / comm / misc / DragonDaemon.lha / DragonDaemon-Install / nuetzliches / FinalData / FDMacros / DialNumber.FD
Text File  |  1999-08-17  |  1KB  |  38 lines
  1. /* --------------------------------------------------------- */
  2. /* $VER: DialNumber.FD 1.0 (07.08.99) J.Reinert              */
  3. /* Typ          : Final Data ARexx Macro                     */
  4. /* Funktion     : Ausgewählte Nummer per DragonDaemon wählen */
  5. /* Voraussetzung: Datenbank mit einem Feld namens "Telefon"  */
  6. /*                Eine einzige Telefonnummer pro Datensatz   */
  7. /* --------------------------------------------------------- */
  8.  
  9. OPTIONS RESULTS
  10.  
  11. /* die nächste Zeile bitte an Ihr Ortsnetz anpassen */
  12. homenet="05175"
  13.  
  14. Phone=""
  15.  
  16. SelectionInfo
  17. PARSE VAR RESULT selType selCol selRow selBeg selEnd
  18.  
  19. IF (selType = 'CELL') THEN DO
  20.   GetColumnPosition NAME "Telefon"
  21.   CellData result selRow
  22.   Phone=result
  23.   end
  24. Else
  25.   IF (selType = 'ROWS') THEN DO
  26.     GetColumnPosition NAME "Telefon"
  27.     CellData result selCol
  28.     Phone=result
  29.   end
  30. If Phone ~="" then do
  31.   if (left(Phone,Length(homenet))=homenet) then
  32.     Phone=DelStr(Phone,1,Length(homenet))
  33.  
  34.   address "DragonDaemon"
  35.   DD_DialNumber Phone
  36.   end
  37.  
  38.